home *** CD-ROM | disk | FTP | other *** search
/ One Click 14 / OneClick14.iso / Ferramentas / Convert XLS to Pdf / xls2pdf_setup.exe / {app} / lib / gs_lev2.ps < prev    next >
Encoding:
Text File  |  2002-10-31  |  26.4 KB  |  798 lines
  1. %    Copyright (C) 1990, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_lev2.ps,v 1.22 2002/10/31 10:26:00 ghostgum Exp $
  17. % Initialization file for Level 2 functions.
  18. % When this is run, systemdict is still writable,
  19. % but (almost) everything defined here goes into level2dict.
  20.  
  21. level2dict begin
  22.  
  23. % ------ System and user parameters ------ %
  24.  
  25. % User parameters must obey save/restore, and must also be maintained
  26. % per-context.  We implement the former, and some of the latter, here
  27. % with PostScript code.  NOTE: our implementation assumes that user
  28. % parameters change only as a result of setuserparams -- that there are
  29. % no user parameters that are ever changed dynamically by the interpreter
  30. % (although the interpreter may adjust the value presented to setuserparams)
  31. %
  32. % There are two types of user parameters: those which are actually
  33. % maintained in the interpreter, and those which exist only at the
  34. % PostScript level.  We maintain the current state of both types in
  35. % a read-only local dictionary named userparams, defined in systemdict.
  36. % In a multi-context system, each context has its own copy of this
  37. % dictionary.  In addition, there is a constant dictionary named
  38. % psuserparams where each key is the name of a user parameter that exists
  39. % only in PostScript and the value is a procedure to check that the value
  40. % is legal: setuserparams uses this for checking the values.
  41. % setuserparams updates userparams explicitly, in addition to setting
  42. % any user parameters in the interpreter; thus we can use userparams
  43. % to reset those parameters after a restore or a context switch.
  44. % NOTE: the name userparams is known to the interpreter, and in fact
  45. % the interpreter creates the userparams dictionary.
  46.  
  47. % Check parameters that are managed at the PostScript level.
  48. /.checkparamtype {        % <newvalue> <type> .checkparamtype <bool>
  49.   exch type eq
  50. } .bind def
  51. /.checksetparams {        % <newdict> <opname> <checkdict>
  52.                 %   .checksetparams <newdict>
  53.   2 index {
  54.         % Stack: newdict opname checkdict key newvalue
  55.     3 copy 3 1 roll .knownget {
  56.       exec not {
  57.     pop pop pop load /typecheck signalerror
  58.       } if
  59.       dup type /stringtype eq {
  60.     dup rcheck not {
  61.       pop pop pop load /invalidaccess signalerror
  62.     } if
  63.       } if
  64.     } {
  65.       pop
  66.     } ifelse pop pop
  67.   } forall pop pop
  68. } .bind def    % not odef, shouldn't reset stacks
  69.  
  70. % currentuser/systemparams creates and returns a dictionary in the
  71. % current VM.  The easiest way to make this work is to copy any composite
  72. % PostScript-level parameters to global VM.  Currently, the only such
  73. % parameters are strings.  In fact, we always copy string parameters,
  74. % so that we can be sure the contents won't be changed.
  75. /.copyparam {            % <value> .copyparam <value'>
  76.   dup type /stringtype eq {
  77.     .currentglobal true .setglobal
  78.     1 index length string exch .setglobal
  79.     copy readonly
  80.   } if
  81. } .bind def
  82.  
  83. % Some user parameters are managed entirely at the PostScript level.
  84. % We take care of that here.
  85. systemdict begin
  86. /psuserparams 48 dict def
  87. /getuserparam {            % <name> getuserparam <value>
  88.   /userparams .systemvar 1 index get exch pop
  89. } odef
  90. % Fill in userparams (created by the interpreter) with current values.
  91. mark .currentuserparams
  92. counttomark 2 idiv {
  93.   userparams 3 1 roll put
  94. } repeat pop
  95. /.definepsuserparam {        % <name> <value> .definepsuserparam -
  96.   psuserparams 3 copy pop
  97.   type cvlit /.checkparamtype cvx 2 packedarray cvx put
  98.   userparams 3 1 roll put
  99. } .bind def
  100. end
  101. /currentuserparams {        % - currentuserparams <dict>
  102.   /userparams .systemvar dup length dict .copydict
  103. } odef
  104. /setuserparams {        % <dict> setuserparams -
  105.     % Check that we will be able to set the PostScript-level
  106.     % user parameters.
  107.   /setuserparams /psuserparams .systemvar .checksetparams
  108.     % Set the C-level user params.  If this succeeds, we know that
  109.     % the password check succeeded.
  110.   dup .setuserparams
  111.     % Now set the PostScript-level params.
  112.     % The interpreter may have adjusted the values of some of the
  113.     % parameters, so we have to read them back.
  114.   dup {
  115.     /userparams .systemvar 2 index known {
  116.       psuserparams 2 index known not {
  117.     pop dup .getuserparam
  118.       } if
  119.       .copyparam
  120.       /userparams .systemvar 3 1 roll .forceput  % userparams is read-only
  121.     } {
  122.       pop pop
  123.     } ifelse
  124.   } forall
  125.     % A context switch might have occurred during the above loop,
  126.     % causing the interpreter-level parameters to be reset.
  127.     % Set them again to the new values.  From here on, we are safe,
  128.     % since a context switch will consult userparams.
  129.   .setuserparams
  130. } .bind odef
  131. % Initialize user parameters managed here.
  132. /JobName () .definepsuserparam
  133.  
  134. % Restore must restore the user parameters.
  135. % (Since userparams is in local VM, save takes care of saving them.)
  136. /restore {        % <save> restore -
  137.   //restore /userparams .systemvar .setuserparams
  138. } .bind odef
  139.  
  140. % The pssystemparams dictionary holds some system parameters that
  141. % are managed entirely at the PostScript level.
  142. systemdict begin
  143. currentdict /pssystemparams known not {
  144.   /pssystemparams 40 dict readonly def
  145. } if
  146. /getsystemparam {        % <name> getsystemparam <value>
  147.   //pssystemparams 1 index .knownget { exch pop } { .getsystemparam } ifelse
  148. } odef
  149. end
  150. /currentsystemparams {        % - currentsystemparams <dict>
  151.   mark .currentsystemparams //pssystemparams { } forall .dicttomark
  152. } odef
  153. /setsystemparams {        % <dict> setsystemparams -
  154.     % Check that we will be able to set the PostScript-level
  155.     % system parameters.
  156.    /SAFETY .systemvar /safe get {
  157.      % SAFER mode disallows some changes
  158.      [ /GenericResourceDir /FontResourceDir /GenericResourcePathSep ] {
  159.        2 copy .knownget {
  160.      exch //pssystemparams exch .knownget {
  161.            ne { /setsystemparams /invalidaccess signalerror } if
  162.          } {
  163.            pop
  164.          } ifelse
  165.        } {
  166.          pop
  167.        } ifelse
  168.      } forall
  169.    } if
  170.    /setsystemparams //pssystemparams mark exch {
  171.      type cvlit /.checkparamtype cvx 2 packedarray cvx
  172.    } forall .dicttomark .checksetparams
  173.     % Set the C-level system params.  If this succeeds, we know that
  174.     % the password check succeeded.
  175.    dup .setsystemparams
  176.     % Now set the PostScript-level params.  We must copy local strings
  177.     % into global VM.
  178.    dup
  179.     { //pssystemparams 2 index known
  180.        {        % Stack: key newvalue
  181.      .copyparam
  182.      //pssystemparams 3 1 roll .forceput    % pssystemparams is read-only
  183.        }
  184.        { pop pop
  185.        }
  186.       ifelse
  187.     }
  188.    forall pop
  189. } .bind odef
  190.  
  191. % Initialize the passwords.
  192. % NOTE: the names StartJobPassword and SystemParamsPassword are known to
  193. % the interpreter, and must be bound to noaccess strings.
  194. % The length of these strings must be max_password (iutil2.h) + 1.
  195. /StartJobPassword 65 string noaccess def
  196. /SystemParamsPassword 65 string noaccess def
  197.  
  198. % Redefine cache parameter setting to interact properly with userparams.
  199. /setcachelimit {
  200.   mark /MaxFontItem 2 index .dicttomark setuserparams pop
  201. } .bind odef
  202. /setcacheparams {
  203.     % The MaxFontCache parameter is a system parameter, which we might
  204.     % not be able to set.  Fortunately, this doesn't matter, because
  205.     % system parameters don't have to be synchronized between this code
  206.     % and the VM.
  207.   counttomark 1 add copy setcacheparams
  208.   currentcacheparams    % mark size lower upper
  209.     3 -1 roll pop
  210.     /MinFontCompress 3 1 roll
  211.     /MaxFontItem exch
  212.   .dicttomark setuserparams
  213.   cleartomark
  214. } .bind odef
  215.  
  216. % Add bogus user and system parameters to satisfy badly written PostScript
  217. % programs that incorrectly assume the existence of all the parameters
  218. % listed in Appendix C of the Red Book.  Note that some of these may become
  219. % real parameters later: code near the end of gs_init.ps takes care of
  220. % removing any such parameters from ps{user,system}params.
  221.  
  222. % psuserparams
  223.   /MaxFormItem 100000 .definepsuserparam
  224.   /MaxPatternItem 20000 .definepsuserparam
  225.   /MaxScreenItem 48000 .definepsuserparam
  226.   /MaxUPathItem 5000 .definepsuserparam
  227.  
  228. % File Access Permission parameters
  229.   .currentglobal true .setglobal
  230.   /.checkFilePermitparams {
  231.     type /arraytype eq {
  232.       currentuserparams /LockFilePermissions get {
  233.         5 { pop } repeat /setuserparams /invalidaccess signalerror
  234.       }
  235.       if
  236.     } {
  237.       5 { pop } repeat /setuserparams /typecheck signalerror
  238.     }
  239.     ifelse
  240.     true
  241.   } .bind def
  242. % Initialize the File Permission access control to wide open
  243. % These will only be accessed via current/set userparams.
  244. % Values are a string containing multiple nul terminated path strings
  245.   /PermitFileReading dup [ (*) ] .definepsuserparam
  246.     psuserparams exch /.checkFilePermitparams load put
  247.   /PermitFileWriting dup [ (*) ] .definepsuserparam
  248.     psuserparams exch /.checkFilePermitparams load put
  249.   /PermitFileControl dup [ (*) ] .definepsuserparam
  250.     psuserparams exch /.checkFilePermitparams load put
  251.   .setglobal
  252.  
  253. pssystemparams begin
  254.   /CurDisplayList 0 .forcedef
  255.   /CurFormCache 0 .forcedef
  256.   /CurOutlineCache 0 .forcedef
  257.   /CurPatternCache 0 .forcedef
  258.   /CurUPathCache 0 .forcedef
  259.   /CurScreenStorage 0 .forcedef
  260.   /CurSourceList 0 .forcedef
  261.   /DoPrintErrors false .forcedef
  262.   /MaxDisplayList 140000 .forcedef
  263.   /MaxFormCache 100000 .forcedef
  264.   /MaxOutlineCache 65000 .forcedef
  265.   /MaxPatternCache 100000 .forcedef
  266.   /MaxUPathCache 300000 .forcedef
  267.   /MaxScreenStorage 84000 .forcedef
  268.   /MaxSourceList 25000 .forcedef
  269.   /RamSize 4194304 .forcedef
  270. end
  271.  
  272. % Define the procedures for handling comment scanning.  The names
  273. % %ProcessComment and %ProcessDSCComment are known to the interpreter.
  274. % These procedures take the file and comment string and file as operands.
  275. /.checkprocesscomment {
  276.   dup null eq {
  277.     pop true
  278.   } {
  279.     dup xcheck {
  280.       type dup /arraytype eq exch /packedarraytype eq or
  281.     } {
  282.       pop false
  283.     } ifelse
  284.   } ifelse
  285. } .bind def
  286. /ProcessComment null .definepsuserparam
  287. psuserparams /ProcessComment {.checkprocesscomment} put
  288. (%ProcessComment) cvn {
  289.   /ProcessComment getuserparam
  290.   dup null eq { pop pop pop } { exec } ifelse
  291. } bind def
  292. /ProcessDSCComment null .definepsuserparam
  293. psuserparams /ProcessDSCComment {.checkprocesscomment} put
  294. /.loadingfont false def
  295. (%ProcessDSCComment) cvn {
  296.   /ProcessDSCComment getuserparam
  297.   dup null eq .loadingfont or { pop pop pop } { exec } ifelse
  298. } bind def
  299.  
  300. % ------ Miscellaneous ------ %
  301.  
  302. (<<) cvn            % - << -mark-
  303.   /mark load def
  304. (>>) cvn            % -mark- <key1> <value1> ... >> <dict>
  305.   /.dicttomark load def
  306. /languagelevel 2 def
  307. % When running in Level 2 mode, this interpreter is supposed to be
  308. % compatible with Adobe version 2017.
  309. /version (2017) readonly def
  310.  
  311. % If binary tokens are supported by this interpreter,
  312. % set an appropriate default binary object format.
  313. /setobjectformat where
  314.  { pop
  315.    /RealFormat getsystemparam (IEEE) eq { 1 } { 3 } ifelse
  316.    /ByteOrder getsystemparam { 1 add } if
  317.    setobjectformat
  318.  } if
  319.  
  320. % Aldus Freehand versions 2.x check for the presence of the
  321. % setcolor operator, and if it is missing, substitute a procedure.
  322. % Unfortunately, the procedure takes different parameters from
  323. % the operator.  As a result, files produced by this application
  324. % cause an error if the setcolor operator is actually defined
  325. % and 'bind' is ever used.  Aldus fixed this bug in Freehand 3.0,
  326. % but there are a lot of files created by the older versions
  327. % still floating around.  Therefore, at Adobe's suggestion,
  328. % we implement the following dreadful hack in the 'where' operator:
  329. %      If the key is /setcolor, and
  330. %        there is a dictionary named FreeHandDict, and
  331. %        currentdict is that dictionary,
  332. %      then "where" consults only that dictionary and not any other
  333. %        dictionaries on the dictionary stack.
  334. .wheredict /setcolor {
  335.   /FreeHandDict .where {
  336.     /FreeHandDict get currentdict eq {
  337.       pop currentdict /setcolor known { currentdict true } { false } ifelse
  338.     } {
  339.       .where
  340.     } ifelse
  341.   } {
  342.     .where
  343.   } ifelse
  344. } bind put
  345.  
  346. % ------ Virtual memory ------ %
  347.  
  348. /currentglobal            % - currentglobal <bool>
  349.   /currentshared load def
  350. /gcheck                % <obj> gcheck <bool>
  351.   /scheck load def
  352. /setglobal            % <bool> setglobal -
  353.   /setshared load def
  354. % We can make the global dictionaries very small, because they auto-expand.
  355. /globaldict currentdict /shareddict .knownget not { 4 dict } if def
  356. /GlobalFontDirectory SharedFontDirectory def
  357.  
  358. % VMReclaim and VMThreshold are user parameters.
  359. /setvmthreshold {        % <int> setvmthreshold -
  360.   mark /VMThreshold 2 index .dicttomark setuserparams pop
  361. } odef
  362. /vmreclaim {            % <int> vmreclaim -
  363.   dup 0 gt {
  364.     .vmreclaim
  365.   } {
  366.     mark /VMReclaim 2 index .dicttomark setuserparams pop
  367.   } ifelse
  368. } odef
  369. -1 setvmthreshold
  370.  
  371. % ------ IODevices ------ %
  372.  
  373. /.getdevparams where {
  374.   pop /currentdevparams {    % <iodevice> currentdevparams <dict>
  375.     .getdevparams .dicttomark
  376.   } odef
  377. } if
  378. /.putdevparams where {
  379.   pop /setdevparams {        % <iodevice> <dict> setdevparams -
  380.     mark 1 index { } forall counttomark 2 add index
  381.     .putdevparams pop pop
  382.   } odef
  383. } if
  384.  
  385. % ------ Job control ------ %
  386.  
  387. serverdict begin
  388.  
  389. % We could protect the job information better, but we aren't attempting
  390. % (currently) to protect ourselves against maliciousness.
  391.  
  392. /.jobsave null def        % top-level save object
  393. /.jobsavelevel 0 def        % save depth of job (0 if .jobsave is null,
  394.                 % 1 otherwise)
  395. /.adminjob true def        % status of current unencapsulated job
  396.  
  397. end        % serverdict
  398.  
  399. % Because there may be objects on the e-stack created since the job save,
  400. % we have to clear the e-stack before doing the end-of-job restore.
  401. % We do this by executing a 2 .stop, which is caught by the 2 .stopped
  402. % in .runexec; we leave on the o-stack a procedure to execute aftewards.
  403. %
  404. %**************** The definition of startjob is not complete yet, since
  405. % it doesn't reset stdin/stdout.
  406. /.startnewjob {            % <exit_bool> <password_level>
  407.                 %   .startnewjob -
  408.     serverdict /.jobsave get dup null eq { pop } { restore } ifelse
  409.     exch {
  410.             % Unencapsulated job
  411.       serverdict /.jobsave null put
  412.       serverdict /.jobsavelevel 0 put
  413.       serverdict /.adminjob 3 -1 roll 1 gt put
  414.         % The Adobe documentation doesn't say what happens to the
  415.         % graphics state stack in this case, but an experiment
  416.         % produced results suggesting that a grestoreall occurs.
  417.       grestoreall
  418.     } {
  419.             % Encapsulated job
  420.       pop
  421.       serverdict /.jobsave save put
  422.       serverdict /.jobsavelevel 1 put
  423.     } ifelse
  424.         % Reset the interpreter state.
  425.   clear cleardictstack
  426.   initgraphics
  427.   false setglobal
  428. } bind def
  429. /.startjob {            % <exit_bool> <password> <finish_proc>
  430.                 %   .startjob <ok_bool>
  431.   vmstatus pop pop serverdict /.jobsavelevel get eq
  432.   2 index .checkpassword 0 gt and {
  433.     exch .checkpassword exch count 3 roll count 3 sub { pop } repeat
  434.     cleardictstack
  435.         % Reset the e-stack back to the 2 .stopped in .runexec,
  436.         % passing the finish_proc to be executed afterwards.
  437.     2 .stop
  438.   } {        % Password check failed
  439.     pop pop pop false
  440.   } ifelse
  441. } odef
  442. /startjob {            % <exit_bool> <password> startjob <ok_bool>
  443.     % This is a hack.  We really need some way to indicate explicitly
  444.     % to the interpreter that we are under control of a job server.
  445.   .userdict /quit /stop load put
  446.   { .startnewjob true } .startjob
  447. } odef
  448.  
  449. systemdict begin
  450. /quit {                % - quit -
  451.   //systemdict begin serverdict /.jobsave get null eq
  452.    { end //quit }
  453.    { /quit load /invalidaccess /signalerror load end exec }
  454.   ifelse
  455. } bind odef
  456. end
  457.  
  458. % We would like to define exitserver as a procedure, using the code
  459. % that the Red Book says is equivalent to it.  However, since startjob
  460. % resets the exec stack, we can't do this, because control would never
  461. % proceed past the call on startjob if the exitserver is successful.
  462. % Instead, we need to construct exitserver out of pieces of startjob.
  463.  
  464. serverdict begin
  465.  
  466. /exitserver {            % <password> exitserver -
  467.   true exch { .startnewjob } .startjob not {
  468.     /exitserver /invalidaccess signalerror
  469.   } if
  470. } bind def
  471.  
  472. end        % serverdict
  473.  
  474. % ------ Compatibility ------ %
  475.  
  476. % In Level 2 mode, the following replace the definitions that gs_statd.ps
  477. % installs in statusdict and serverdict.
  478. % Note that statusdict must be allocated in local VM.
  479. % We don't bother with many of these yet.
  480.  
  481. /.dict1 { exch mark 3 1 roll .dicttomark } bind def
  482.  
  483. currentglobal false setglobal 25 dict exch setglobal begin
  484. currentsystemparams
  485.  
  486. % The following do not depend on the presence of setpagedevice.
  487. /buildtime 1 index /BuildTime get def
  488. % Also define /buildtime in systemdict because Adobe does so and some fonts use it as ID
  489. systemdict /buildtime dup load put
  490. /byteorder 1 index /ByteOrder get def
  491. /checkpassword { .checkpassword 0 gt } bind def
  492. dup /DoStartPage known
  493.  { /dostartpage { /DoStartPage getsystemparam } bind def
  494.    /setdostartpage { /DoStartPage .dict1 setsystemparams } bind def
  495.  } if
  496. dup /StartupMode known
  497.  { /dosysstart { /StartupMode getsystemparam 0 ne } bind def
  498.    /setdosysstart { { 1 } { 0 } ifelse /StartupMode .dict1 setsystemparams } bind def
  499.  } if
  500. %****** Setting jobname is supposed to set userparams.JobName, too.
  501. /jobname { /JobName getuserparam } bind def
  502. /jobtimeout { /JobTimeout getuserparam } bind def
  503. /ramsize { /RamSize getsystemparam } bind def
  504. /realformat 1 index /RealFormat get def
  505. dup /PrinterName known
  506.  { /setprintername { /PrinterName .dict1 setsystemparams } bind def
  507.  } if
  508. /printername
  509.  { currentsystemparams /PrinterName .knownget not { () } if exch copy
  510.  } bind def
  511. currentuserparams /WaitTimeout known
  512.  { /waittimeout { /WaitTimeout getuserparam } bind def
  513.  } if
  514.  
  515. % The following do require setpagedevice.
  516. /.setpagedevice where { pop } { (%END PAGEDEVICE) .skipeof } ifelse
  517. /defaulttimeouts
  518.  { currentsystemparams dup
  519.    /JobTimeout .knownget not { 0 } if
  520.    exch /WaitTimeout .knownget not { 0 } if
  521.    currentpagedevice /ManualFeedTimeout .knownget not { 0 } if
  522.  } bind def
  523. /margins
  524.  { currentpagedevice /Margins .knownget { exch } { [0 0] } ifelse
  525.  } bind def
  526. /pagemargin
  527.  { currentpagedevice /PageOffset .knownget { 0 get } { 0 } ifelse
  528.  } bind def
  529. /pageparams
  530.  { currentpagedevice
  531.    dup /Orientation .knownget { 1 and ORIENT1 { 1 xor } if } { 0 } ifelse exch
  532.    dup /PageSize get aload pop 3 index 0 ne { exch } if 3 2 roll
  533.    /PageOffset .knownget { 0 get } { 0 } ifelse 4 -1 roll
  534.  } bind def
  535. /setdefaulttimeouts
  536.  { exch mark /ManualFeedTimeout 3 -1 roll
  537.    /Policies mark /ManualFeedTimeout 1 .dicttomark
  538.    .dicttomark setpagedevice
  539.    /WaitTimeout exch mark /JobTimeout 5 2 roll .dicttomark setsystemparams
  540.  } bind def
  541. /.setpagesize { 2 array astore /PageSize .dict1 setpagedevice } bind def
  542. /setduplexmode { /Duplex .dict1 setpagedevice } bind def
  543. /setmargins
  544.  { exch 2 array astore /Margins .dict1 setpagedevice
  545.  } bind def
  546. /setpagemargin { 0 2 array astore /PageOffset .dict1 setpagedevice } bind def
  547. /setpageparams
  548.  { mark /PageSize 6 -2 roll
  549.    4 index 1 and ORIENT1 { 1 } { 0 } ifelse ne { exch } if 2 array astore
  550.    /Orientation 5 -1 roll ORIENT1 { 1 xor } if
  551.    /PageOffset counttomark 2 add -1 roll 0 2 array astore
  552.    .dicttomark setpagedevice
  553.  } bind def
  554. /setresolution
  555.  { dup 2 array astore /HWResolution .dict1 setpagedevice
  556.  } bind def
  557. %END PAGEDEVICE
  558.  
  559. % The following are not implemented yet.
  560. %manualfeed
  561. %manualfeedtimeout
  562. %pagecount
  563. %pagestackorder
  564. %setpagestackorder
  565.  
  566. pop        % currentsystemparams
  567.  
  568. % Flag the current dictionary so it will be swapped when we
  569. % change language levels.  (See zmisc2.c for more information.)
  570. /statusdict currentdict def
  571.  
  572. currentdict end
  573. /statusdict exch .forcedef    % statusdict is local, systemdict is global
  574.  
  575. % The following compatibility operators are in systemdict.  They are
  576. % defined here, rather than in gs_init.ps, because they require the
  577. % resource machinery.
  578.  
  579. /devforall {        % <proc> <scratch> devforall -
  580.   exch {
  581.     1 index currentdevparams
  582.     /Type .knownget { /FileSystem eq } { false } ifelse
  583.     { exec } { pop pop } ifelse
  584.   } /exec load 3 packedarray cvx exch
  585.   (*) 3 1 roll /IODevice resourceforall
  586. } odef
  587. /devstatus {        % <(%disk*%)> devstatus <searchable> <writable>
  588.             %   <hasNames> <mounted> <removable> <searchOrder>
  589.             %   <freePages> <size> true
  590.             % <string> devstatus false
  591.   dup length 5 ge {
  592.     dup 0 5 getinterval (%disk) eq {
  593.       dup /IODevice resourcestatus {
  594.     pop pop dup currentdevparams
  595.     dup /Searchable get
  596.     exch dup /Writeable get
  597.     exch dup /HasNames get
  598.     exch dup /Mounted get
  599.     exch dup /Removable get
  600.     exch dup /SearchOrder get
  601.     exch dup /Free get
  602.     exch /LogicalSize get
  603.     9 -1 roll pop true
  604.       } {
  605.     pop false
  606.       } ifelse
  607.     } {
  608.       pop false
  609.     } ifelse
  610.   } {
  611.     pop false
  612.   } ifelse
  613. } odef
  614.  
  615. % ------ Color spaces ------ %
  616.  
  617. % Move setcolorsapce, setcolor, and colorspacedict to level2dict
  618. level2dict /setcolorspace .cspace_util 1 index get put
  619. level2dict /setcolor .cspace_util 1 index get put
  620. level2dict /colorspacedict .cspace_util 1 index get put
  621.  
  622. % Add the level 2 color spaces
  623. % DevicePixel is actually a LanguageLevel 3 feature; it is here for
  624. % historical reasons.
  625. %% Replace 1 (gs_devpxl.ps) 
  626. (gs_devpxl.ps) runlibfile
  627.  
  628. %% Replace 1 (gs_ciecs2.ps)
  629. (gs_ciecs2.ps) runlibfile
  630.  
  631. %% Replace 1 (gs_indxd.ps)
  632. (gs_indxd.ps) runlibfile
  633.  
  634. %% Replace 1 (gs_sepr.ps)
  635. (gs_sepr.ps) runlibfile
  636.  
  637. %% Replace 1 (gs_patrn.ps)
  638. (gs_patrn.ps) runlibfile
  639.  
  640.  
  641.  
  642. % ------ CIE color rendering ------ %
  643.  
  644. % Define findcolorrendering and a default ColorRendering ProcSet.
  645.  
  646. /findcolorrendering {        % <intentname> findcolorrendering
  647.                 %   <crdname> <found>
  648.   /ColorRendering /ProcSet findresource
  649.   1 index .namestring (.) concatstrings
  650.   1 index /GetPageDeviceName get exec .namestring (.) concatstrings
  651.   2 index /GetHalftoneName get exec .namestring
  652.   concatstrings concatstrings
  653.   dup /ColorRendering resourcestatus {
  654.     pop pop exch pop exch pop true
  655.   } {
  656.     pop /GetSubstituteCRD get exec false
  657.   } ifelse
  658. } odef
  659.  
  660. 5 dict dup begin
  661.  
  662. /GetPageDeviceName {        % - GetPageDeviceName <name>
  663.   currentpagedevice dup /PageDeviceName .knownget {
  664.     exch pop dup null eq { pop /none } if
  665.   } {
  666.     pop /none
  667.   } ifelse
  668. } bind def
  669.  
  670. /GetHalftoneName {        % - GetHalftoneName <name>
  671.   currenthalftone /HalftoneName .knownget not { /none } if
  672. } bind def
  673.  
  674. /GetSubstituteCRD {        % <intentname> GetSubstituteCRD <crdname>
  675.   pop /DefaultColorRendering
  676. } bind def
  677.  
  678. end
  679. % The resource machinery hasn't been activated, so just save the ProcSet
  680. % and let .fixresources finish the installation process.
  681. /ColorRendering exch def
  682.  
  683. % Define setcolorrendering.
  684.  
  685. /.colorrenderingtypes 5 dict def
  686.  
  687. /setcolorrendering {        % <crd> setcolorrendering -
  688.   dup /ColorRenderingType get //.colorrenderingtypes exch get exec
  689. } odef
  690.  
  691. /.setcolorrendering1 where { pop } { (%END CRD) .skipeof } ifelse
  692.  
  693. .colorrenderingtypes 1 {
  694.   dup .buildcolorrendering1 .setcolorrendering1
  695. } .bind put
  696.  
  697. % Note: the value 101 in the next line must be the same as the value of
  698. % GX_DEVICE_CRD1_TYPE in gscrdp.h.
  699. .colorrenderingtypes 101 {
  700.   dup .builddevicecolorrendering1 .setdevicecolorrendering1
  701. } .bind put
  702.  
  703. % Initialize the default CIE rendering dictionary.
  704. % The most common CIE files seem to assume the "calibrated RGB color space"
  705. % described on p. 189 of the PostScript Language Reference Manual,
  706. % 2nd Edition; we simply invert this transformation back to RGB.
  707. mark
  708.    /ColorRenderingType 1
  709. % We must make RangePQR and RangeLMN large enough so that values computed by
  710. % the assumed encoding MatrixLMN don't get clamped.
  711.    /RangePQR [0 0.9505 0 1 0 1.0890] readonly
  712. % This TransformPQR implements a relative colorimetric intent by scaling
  713. % the XYZ values relative to the white and black points.
  714.    /TransformPQR
  715.      % The implementations have been moved to C for performance.
  716.      [ { .TransformPQR_scale_WB0 } bind
  717.        { .TransformPQR_scale_WB1 } bind 
  718.        { .TransformPQR_scale_WB2 } bind
  719.      ] readonly
  720.    /RangeLMN [0 0.9505 0 1 0 1.0890] readonly
  721.    /MatrixABC
  722.     [ 3.24063 -0.96893  0.05571
  723.      -1.53721  1.87576 -0.20402
  724.      -0.49863  0.04152  1.05700
  725.     ] readonly
  726.    /EncodeABC [ {0 .max 0.45 exp} bind dup dup] readonly
  727.    /WhitePoint [0.9505 1 1.0890] readonly
  728.     % Some Genoa tests seem to require the presence of BlackPoint.
  729.    /BlackPoint [0 0 0] readonly
  730. .dicttomark setcolorrendering
  731.  
  732. %END CRD
  733.  
  734. % Initialize a CIEBased color space for sRGB.
  735. /CIEsRGB [ /CIEBasedABC
  736.   mark
  737.     /DecodeLMN [ {
  738.       dup 0.03928 le { 12.92321 div } { 0.055 add 1.055 div 2.4 exp } ifelse
  739.     } bind dup dup ] readonly
  740.     /MatrixLMN [
  741.       0.412457 0.212673 0.019334
  742.       0.357576 0.715152 0.119192
  743.       0.180437 0.072175 0.950301
  744.     ] readonly
  745.     /WhitePoint [0.9505 1.0 1.0890] readonly
  746.   .dicttomark readonly
  747. ] readonly def
  748.  
  749. % ------ Painting ------ %
  750.  
  751. % A straightforward definition of execform that doesn't actually
  752. % do any caching.
  753. /.execform1 {
  754.     % This is a separate operator so that the stacks will be restored
  755.     % properly if an error occurs.
  756.   dup /Matrix get concat
  757.   dup /BBox get aload pop
  758.   exch 3 index sub exch 2 index sub rectclip
  759.   dup /PaintProc get
  760.   1 index /Implementation known not {
  761.     1 index dup /Implementation null .forceput readonly pop
  762.   } if
  763.   exec
  764. } .bind odef    % must bind .forceput
  765.  
  766. /.formtypes 5 dict
  767.   dup 1 /.execform1 load put
  768. def
  769.  
  770. /execform {            % <form> execform -
  771.   gsave {
  772.     dup /FormType get //.formtypes exch get exec
  773.   } stopped grestore { stop } if
  774. } odef
  775.  
  776. /.patterntypes 5 dict
  777.   dup 1 /.buildpattern1 load put
  778. def
  779.  
  780. /makepattern {            % <proto_dict> <matrix> makepattern <pattern>
  781.   //.patterntypes 2 index /PatternType get get
  782.   .currentglobal false .setglobal exch
  783.         % Stack: proto matrix global buildproc
  784.   3 index dup length 1 add dict .copydict
  785.   3 index 3 -1 roll exec 3 -1 roll .setglobal
  786.   1 index /Implementation 3 -1 roll put
  787.   readonly exch pop exch pop
  788. } odef
  789.  
  790. /setpattern {            % [<comp1> ...] <pattern> setpattern -
  791.   currentcolorspace 0 get /Pattern ne {
  792.     [ /Pattern currentcolorspace ] setcolorspace
  793.   } if setcolor
  794. } odef
  795.  
  796.  
  797. end                % level2dict
  798.